(dnd-get-local-file-name): Set fixcase to t in call to

replace-regexp-in-string.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2a273b461665ce41642986d48d5f08e804e2e348..8beffcd275235b9e8428d588c75d063a549e876b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-06-28  Jan Dj\e,Ad\e(Brv  <jan.h.d@swipnet.se>
+
+       * dnd.el (dnd-get-local-file-name): Set fixcase to t in call to
+       replace-regexp-in-string.
+
 2007-06-28  Andreas Schwab  <schwab@suse.de>
 
        * Makefile.in ($(lisp)/mh-e/mh-loaddefs.el): Depend on

diff --git a/lisp/dnd.el b/lisp/dnd.el
index df081539cf0f0072f19a671a3ae96316677062e7..193fa962ea700bf75d5e21ca8a50987985151784 100644 (file)
--- a/lisp/dnd.el
+++ b/lisp/dnd.el
@@ -149,7 +149,7 @@ Return nil if URI is not a local file."
               "%[A-Fa-f0-9][A-Fa-f0-9]"
               (lambda (arg)
                 (format "%c" (string-to-number (substring arg 1) 16)))
-              f nil t))
+              f t t))
       (let* ((decoded-f (decode-coding-string
                         f
                         (or file-name-coding-system